home *** CD-ROM | disk | FTP | other *** search
/ Data Base of the Video Yearbook 1995 / Data Base of the Video Yearbook 1995 - Disc 1.iso / cosmos / aiue.dir / 00029.ls < prev    next >
Encoding:
Text File  |  1995-12-21  |  623 b   |  24 lines
  1. on mouseDown
  2.   global taidata, taidataj, sdata, tj, moji, msno
  3.   set taidata to EMPTY
  4.   set taidataj to EMPTY
  5.   set sdata to EMPTY
  6.   set msno to clickOn()
  7.   highwaystar(msno)
  8.   set moji to "ﾃﾃｽ,ﾃﾃｸ,ﾃﾂｬ,ﾃﾆ,ﾃﾃ"
  9.   delete line 1 of field "ﾃ･ﾃｼﾃｧﾂｦﾃ･ﾃ｣ﾃ｢ﾂ"
  10.   if tj = 1 then
  11.     put EMPTY into field "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃｯﾂ"
  12.     tgyou(moji)
  13.     if the number of items in taidata = 1 then
  14.       put "Nothing" into field "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃｯﾂ"
  15.     end if
  16.   else
  17.     put EMPTY into field "ﾃｨﾃｳﾃｳDﾃｯﾂ"
  18.     jgyou(moji)
  19.     if the number of items in sdata = 1 then
  20.       put "Nothing" into field "ﾃｨﾃｳﾃｳDﾃｯﾂ"
  21.     end if
  22.   end if
  23. end
  24.